home *** CD-ROM | disk | FTP | other *** search
/ Freelog 50 / Freelog050.iso / DossierLogitheque / Bureautique / Mira / Mira_setup.exe / {app} / Mira.exe / 0 / RCDATA / TFORMEDIT / TFORMEDIT.txt < prev   
Text File  |  2003-09-02  |  37KB  |  1,465 lines
  1. object FormEdit: TFormEdit
  2.   Left = 324
  3.   Top = 194
  4.   BorderStyle = bsDialog
  5.   Caption = 'Edition'
  6.   ClientHeight = 371
  7.   ClientWidth = 538
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'Arial'
  13.   Font.Style = []
  14.   FormStyle = fsStayOnTop
  15.   Icon.Data = {<image000.ico>}
  16.   KeyPreview = True
  17.   OldCreateOrder = False
  18.   Position = poScreenCenter
  19.   OnClose = FormClose
  20.   OnCreate = FormCreate
  21.   OnDestroy = FormDestroy
  22.   OnKeyDown = FormKeyDown
  23.   OnShow = FormShow
  24.   PixelsPerInch = 96
  25.   TextHeight = 14
  26.   object SC_Line5: TSC_Line
  27.     Left = 0
  28.     Top = 337
  29.     Width = 538
  30.     Height = 34
  31.     BorderShape = bsTopLine
  32.     Align = alBottom
  33.   end
  34.   object ButtonOk: TButton
  35.     Left = 147
  36.     Top = 343
  37.     Width = 74
  38.     Height = 22
  39.     Caption = '&Ok'
  40.     Default = True
  41.     ModalResult = 1
  42.     TabOrder = 2
  43.     OnClick = ButtonOkClick
  44.   end
  45.   object ButtonCancel: TButton
  46.     Left = 317
  47.     Top = 343
  48.     Width = 74
  49.     Height = 22
  50.     Cancel = True
  51.     Caption = '&Annuler'
  52.     ModalResult = 2
  53.     TabOrder = 4
  54.     OnClick = ButtonCancelClick
  55.   end
  56.   object PageControl: TPageControl
  57.     Left = 135
  58.     Top = 0
  59.     Width = 397
  60.     Height = 334
  61.     ActivePage = Tab1
  62.     Style = tsFlatButtons
  63.     TabOrder = 1
  64.     object Tab1: TTabSheet
  65.       Caption = '  Personnel  '
  66.       TabVisible = False
  67.       object Label2: TLabel
  68.         Left = 185
  69.         Top = 63
  70.         Width = 36
  71.         Height = 14
  72.         Caption = 'Pr'#233'nom'
  73.         Font.Charset = DEFAULT_CHARSET
  74.         Font.Color = clBlack
  75.         Font.Height = -11
  76.         Font.Name = 'Arial'
  77.         Font.Style = []
  78.         ParentFont = False
  79.       end
  80.       object Label3: TLabel
  81.         Left = 3
  82.         Top = 105
  83.         Width = 42
  84.         Height = 14
  85.         Caption = 'Adresse'
  86.         Font.Charset = DEFAULT_CHARSET
  87.         Font.Color = clBlack
  88.         Font.Height = -11
  89.         Font.Name = 'Arial'
  90.         Font.Style = []
  91.         ParentFont = False
  92.       end
  93.       object Label15: TLabel
  94.         Left = 3
  95.         Top = 147
  96.         Width = 109
  97.         Height = 14
  98.         Caption = 'Compl'#233'ment d'#39'adresse'
  99.         Font.Charset = DEFAULT_CHARSET
  100.         Font.Color = clBlack
  101.         Font.Height = -11
  102.         Font.Name = 'Arial'
  103.         Font.Style = []
  104.         ParentFont = False
  105.       end
  106.       object Label4: TLabel
  107.         Left = 276
  108.         Top = 189
  109.         Width = 57
  110.         Height = 14
  111.         Caption = 'Code Postal'
  112.         Font.Charset = DEFAULT_CHARSET
  113.         Font.Color = clBlack
  114.         Font.Height = -11
  115.         Font.Name = 'Arial'
  116.         Font.Style = []
  117.         ParentFont = False
  118.       end
  119.       object Label5: TLabel
  120.         Left = 3
  121.         Top = 189
  122.         Width = 20
  123.         Height = 14
  124.         Caption = 'Ville'
  125.         Font.Charset = DEFAULT_CHARSET
  126.         Font.Color = clBlack
  127.         Font.Height = -11
  128.         Font.Name = 'Arial'
  129.         Font.Style = []
  130.         ParentFont = False
  131.       end
  132.       object Label14: TLabel
  133.         Left = 188
  134.         Top = 231
  135.         Width = 24
  136.         Height = 14
  137.         Caption = 'Pays'
  138.         Font.Charset = DEFAULT_CHARSET
  139.         Font.Color = clBlack
  140.         Font.Height = -11
  141.         Font.Name = 'Arial'
  142.         Font.Style = []
  143.         ParentFont = False
  144.       end
  145.       object Label26: TLabel
  146.         Left = 188
  147.         Top = 282
  148.         Width = 52
  149.         Height = 14
  150.         Caption = 'Cat'#233'gories'
  151.       end
  152.       object SpeedButton4: TSpeedButton
  153.         Tag = 1
  154.         Left = 370
  155.         Top = 189
  156.         Width = 17
  157.         Height = 15
  158.         Cursor = crHandPoint
  159.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  160.         Caption = '-'
  161.         Flat = True
  162.         Font.Charset = DEFAULT_CHARSET
  163.         Font.Color = clWindowText
  164.         Font.Height = -19
  165.         Font.Name = 'MS Sans Serif'
  166.         Font.Style = [fsBold]
  167.         Layout = blGlyphBottom
  168.         ParentFont = False
  169.         ParentShowHint = False
  170.         ShowHint = True
  171.         OnClick = SpeedButton4Click
  172.       end
  173.       object SpeedButton5: TSpeedButton
  174.         Left = 167
  175.         Top = 231
  176.         Width = 17
  177.         Height = 15
  178.         Cursor = crHandPoint
  179.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  180.         Caption = '-'
  181.         Flat = True
  182.         Font.Charset = DEFAULT_CHARSET
  183.         Font.Color = clWindowText
  184.         Font.Height = -19
  185.         Font.Name = 'MS Sans Serif'
  186.         Font.Style = [fsBold]
  187.         Layout = blGlyphBottom
  188.         ParentFont = False
  189.         ParentShowHint = False
  190.         ShowHint = True
  191.         OnClick = SpeedButton5Click
  192.       end
  193.       object SpeedButton6: TSpeedButton
  194.         Tag = 4
  195.         Left = 368
  196.         Top = 231
  197.         Width = 17
  198.         Height = 15
  199.         Cursor = crHandPoint
  200.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  201.         Caption = '-'
  202.         Flat = True
  203.         Font.Charset = DEFAULT_CHARSET
  204.         Font.Color = clWindowText
  205.         Font.Height = -19
  206.         Font.Name = 'MS Sans Serif'
  207.         Font.Style = [fsBold]
  208.         Layout = blGlyphBottom
  209.         ParentFont = False
  210.         ParentShowHint = False
  211.         ShowHint = True
  212.         OnClick = SpeedButton6Click
  213.       end
  214.       object SpeedButton7: TSpeedButton
  215.         Tag = 2
  216.         Left = 255
  217.         Top = 189
  218.         Width = 17
  219.         Height = 15
  220.         Cursor = crHandPoint
  221.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  222.         Caption = '-'
  223.         Flat = True
  224.         Font.Charset = DEFAULT_CHARSET
  225.         Font.Color = clWindowText
  226.         Font.Height = -19
  227.         Font.Name = 'MS Sans Serif'
  228.         Font.Style = [fsBold]
  229.         Layout = blGlyphBottom
  230.         ParentFont = False
  231.         ParentShowHint = False
  232.         ShowHint = True
  233.         OnClick = SpeedButton7Click
  234.       end
  235.       object SpeedButton10: TSpeedButton
  236.         Tag = 6
  237.         Left = 368
  238.         Top = 282
  239.         Width = 17
  240.         Height = 15
  241.         Cursor = crHandPoint
  242.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  243.         Caption = '-'
  244.         Flat = True
  245.         Font.Charset = DEFAULT_CHARSET
  246.         Font.Color = clWindowText
  247.         Font.Height = -19
  248.         Font.Name = 'MS Sans Serif'
  249.         Font.Style = [fsBold]
  250.         Layout = blGlyphBottom
  251.         ParentFont = False
  252.         ParentShowHint = False
  253.         ShowHint = True
  254.         OnClick = SpeedButton10Click
  255.       end
  256.       object Label30: TLabel
  257.         Left = 3
  258.         Top = 21
  259.         Width = 30
  260.         Height = 14
  261.         Caption = 'Civilit'#233
  262.       end
  263.       object SpeedButton8: TSpeedButton
  264.         Tag = 5
  265.         Left = 368
  266.         Top = 21
  267.         Width = 17
  268.         Height = 15
  269.         Cursor = crHandPoint
  270.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  271.         Caption = '-'
  272.         Flat = True
  273.         Font.Charset = DEFAULT_CHARSET
  274.         Font.Color = clWindowText
  275.         Font.Height = -19
  276.         Font.Name = 'MS Sans Serif'
  277.         Font.Style = [fsBold]
  278.         Layout = blGlyphBottom
  279.         ParentFont = False
  280.         ParentShowHint = False
  281.         ShowHint = True
  282.         OnClick = SpeedButton8Click
  283.       end
  284.       object Label9: TLabel
  285.         Left = 21
  286.         Top = 1
  287.         Width = 149
  288.         Height = 15
  289.         Caption = 'Informations personnelles'
  290.         Font.Charset = DEFAULT_CHARSET
  291.         Font.Color = clWindowText
  292.         Font.Height = -12
  293.         Font.Name = 'Arial'
  294.         Font.Style = [fsBold]
  295.         ParentFont = False
  296.       end
  297.       object Image2: TImage
  298.         Left = 3
  299.         Top = 0
  300.         Width = 16
  301.         Height = 16
  302.         AutoSize = True
  303.         Picture.Data = {<image001.bmp>}
  304.         Transparent = True
  305.       end
  306.       object SC_CloneD: TSC_Label
  307.         Left = 174
  308.         Top = 2
  309.         Width = 193
  310.         Height = 14
  311.         Cursor = crHandPoint
  312.         Caption = '(Copier depuis un contact existant)'
  313.         Font.Charset = DEFAULT_CHARSET
  314.         Font.Color = clNavy
  315.         Font.Height = -11
  316.         Font.Name = 'Arial'
  317.         Font.Style = [fsBold]
  318.         ParentFont = False
  319.         OnClick = SC_CloneDClick
  320.         ACHover = True
  321.         ACUnderline = True
  322.         ACColorEnter = clBlue
  323.         ACColorLeave = clNavy
  324.       end
  325.       object Label12: TLabel
  326.         Left = 3
  327.         Top = 63
  328.         Width = 21
  329.         Height = 14
  330.         Caption = 'Nom'
  331.         Font.Charset = DEFAULT_CHARSET
  332.         Font.Color = clBlack
  333.         Font.Height = -11
  334.         Font.Name = 'Arial'
  335.         Font.Style = []
  336.         ParentFont = False
  337.       end
  338.       object Label13: TLabel
  339.         Left = 3
  340.         Top = 231
  341.         Width = 61
  342.         Height = 14
  343.         Caption = 'D'#233'partement'
  344.         Font.Charset = DEFAULT_CHARSET
  345.         Font.Color = clBlack
  346.         Font.Height = -11
  347.         Font.Name = 'Arial'
  348.         Font.Style = []
  349.         ParentFont = False
  350.       end
  351.       object Label39: TLabel
  352.         Left = 3
  353.         Top = 282
  354.         Width = 25
  355.         Height = 14
  356.         Caption = 'Sexe'
  357.         Font.Charset = DEFAULT_CHARSET
  358.         Font.Color = clBlack
  359.         Font.Height = -11
  360.         Font.Name = 'Arial'
  361.         Font.Style = []
  362.         ParentFont = False
  363.       end
  364.       object SC_EditCd: TSC_Label
  365.         Left = 26
  366.         Top = 189
  367.         Width = 225
  368.         Height = 14
  369.         Cursor = crHandPoint
  370.         Caption = '(Editer le code postal et le d'#233'partement, Ctrl+E)'
  371.         Font.Charset = DEFAULT_CHARSET
  372.         Font.Color = clNavy
  373.         Font.Height = -11
  374.         Font.Name = 'Arial'
  375.         Font.Style = []
  376.         ParentFont = False
  377.         OnClick = SC_EditCdClick
  378.         ACHover = True
  379.         ACUnderline = True
  380.         ACColorEnter = clBlue
  381.         ACColorLeave = clNavy
  382.       end
  383.       object EditNom: TEdit
  384.         Left = 3
  385.         Top = 78
  386.         Width = 180
  387.         Height = 22
  388.         Ctl3D = True
  389.         MaxLength = 50
  390.         ParentCtl3D = False
  391.         TabOrder = 1
  392.         OnKeyPress = EditNomKeyPress
  393.       end
  394.       object EditPrenom: TEdit
  395.         Left = 185
  396.         Top = 78
  397.         Width = 201
  398.         Height = 22
  399.         Ctl3D = True
  400.         MaxLength = 50
  401.         ParentCtl3D = False
  402.         TabOrder = 2
  403.         OnKeyPress = EditNomKeyPress
  404.       end
  405.       object EditAdresse1: TEdit
  406.         Left = 3
  407.         Top = 120
  408.         Width = 383
  409.         Height = 22
  410.         Ctl3D = True
  411.         MaxLength = 80
  412.         ParentCtl3D = False
  413.         TabOrder = 3
  414.         OnKeyPress = EditNomKeyPress
  415.       end
  416.       object EditAdresse2: TEdit
  417.         Left = 3
  418.         Top = 162
  419.         Width = 383
  420.         Height = 22
  421.         Ctl3D = True
  422.         MaxLength = 80
  423.         ParentCtl3D = False
  424.         TabOrder = 4
  425.         OnKeyPress = EditNomKeyPress
  426.       end
  427.       object ComboCode: TComboBox
  428.         Left = 276
  429.         Top = 204
  430.         Width = 112
  431.         Height = 22
  432.         Cursor = crHandPoint
  433.         DropDownCount = 15
  434.         ItemHeight = 14
  435.         Sorted = True
  436.         TabOrder = 6
  437.         OnExit = TousComboExit
  438.       end
  439.       object ComboVille: TComboBox
  440.         Left = 3
  441.         Top = 204
  442.         Width = 271
  443.         Height = 22
  444.         Cursor = crHandPoint
  445.         DropDownCount = 15
  446.         ItemHeight = 14
  447.         Sorted = True
  448.         TabOrder = 5
  449.         OnExit = TousComboExit
  450.         OnKeyPress = ComboKeyPress
  451.       end
  452.       object ComboDep: TComboBox
  453.         Left = 3
  454.         Top = 246
  455.         Width = 183
  456.         Height = 22
  457.         Cursor = crHandPoint
  458.         DropDownCount = 15
  459.         ItemHeight = 14
  460.         Sorted = True
  461.         TabOrder = 7
  462.         OnExit = TousComboExit
  463.         OnKeyPress = ComboKeyPress
  464.       end
  465.       object ComboPays: TComboBox
  466.         Left = 188
  467.         Top = 246
  468.         Width = 199
  469.         Height = 22
  470.         Cursor = crHandPoint
  471.         DropDownCount = 15
  472.         ItemHeight = 14
  473.         Sorted = True
  474.         TabOrder = 8
  475.         OnExit = TousComboExit
  476.         OnKeyPress = ComboKeyPress
  477.       end
  478.       object ComboCategorie: TComboBox
  479.         Left = 188
  480.         Top = 297
  481.         Width = 199
  482.         Height = 22
  483.         Cursor = crHandPoint
  484.         DropDownCount = 15
  485.         ItemHeight = 14
  486.         Sorted = True
  487.         TabOrder = 10
  488.         OnExit = TousComboExit
  489.         OnKeyPress = ComboKeyPress
  490.       end
  491.       object ComboTitre: TComboBox
  492.         Left = 3
  493.         Top = 36
  494.         Width = 383
  495.         Height = 22
  496.         Cursor = crHandPoint
  497.         DropDownCount = 15
  498.         ItemHeight = 14
  499.         Sorted = True
  500.         TabOrder = 0
  501.         OnExit = TousComboExit
  502.         OnKeyPress = ComboKeyPress
  503.       end
  504.       object ComboSexe: TComboBox
  505.         Left = 3
  506.         Top = 297
  507.         Width = 183
  508.         Height = 22
  509.         Cursor = crHandPoint
  510.         Style = csDropDownList
  511.         DropDownCount = 15
  512.         ItemHeight = 14
  513.         TabOrder = 9
  514.         OnExit = TousComboExit
  515.         OnKeyPress = ComboKeyPress
  516.         Items.Strings = (
  517.           ''
  518.           'M'
  519.           'F')
  520.       end
  521.     end
  522.     object Tab2: TTabSheet
  523.       Caption = 'T'#233'l'#233'phone et internet  '
  524.       ImageIndex = 2
  525.       TabVisible = False
  526.       object Label19: TLabel
  527.         Left = 3
  528.         Top = 105
  529.         Width = 42
  530.         Height = 14
  531.         Caption = 'Adresse'
  532.         Font.Charset = DEFAULT_CHARSET
  533.         Font.Color = clBlack
  534.         Font.Height = -11
  535.         Font.Name = 'Arial'
  536.         Font.Style = []
  537.         ParentFont = False
  538.       end
  539.       object Label20: TLabel
  540.         Left = 3
  541.         Top = 147
  542.         Width = 109
  543.         Height = 14
  544.         Caption = 'Compl'#233'ment d'#39'adresse'
  545.         Font.Charset = DEFAULT_CHARSET
  546.         Font.Color = clBlack
  547.         Font.Height = -11
  548.         Font.Name = 'Arial'
  549.         Font.Style = []
  550.         ParentFont = False
  551.       end
  552.       object Label21: TLabel
  553.         Left = 276
  554.         Top = 189
  555.         Width = 57
  556.         Height = 14
  557.         Caption = 'Code Postal'
  558.         Font.Charset = DEFAULT_CHARSET
  559.         Font.Color = clBlack
  560.         Font.Height = -11
  561.         Font.Name = 'Arial'
  562.         Font.Style = []
  563.         ParentFont = False
  564.       end
  565.       object Label22: TLabel
  566.         Left = 3
  567.         Top = 189
  568.         Width = 20
  569.         Height = 14
  570.         Caption = 'Ville'
  571.         Font.Charset = DEFAULT_CHARSET
  572.         Font.Color = clBlack
  573.         Font.Height = -11
  574.         Font.Name = 'Arial'
  575.         Font.Style = []
  576.         ParentFont = False
  577.       end
  578.       object Label23: TLabel
  579.         Left = 3
  580.         Top = 231
  581.         Width = 61
  582.         Height = 14
  583.         Caption = 'D'#233'partement'
  584.         Font.Charset = DEFAULT_CHARSET
  585.         Font.Color = clBlack
  586.         Font.Height = -11
  587.         Font.Name = 'Arial'
  588.         Font.Style = []
  589.         ParentFont = False
  590.       end
  591.       object Label24: TLabel
  592.         Left = 188
  593.         Top = 231
  594.         Width = 24
  595.         Height = 14
  596.         Caption = 'Pays'
  597.         Font.Charset = DEFAULT_CHARSET
  598.         Font.Color = clBlack
  599.         Font.Height = -11
  600.         Font.Name = 'Arial'
  601.         Font.Style = []
  602.         ParentFont = False
  603.       end
  604.       object Label25: TLabel
  605.         Left = 188
  606.         Top = 282
  607.         Width = 66
  608.         Height = 14
  609.         Caption = 'Poste occup'#233
  610.       end
  611.       object Label27: TLabel
  612.         Left = 3
  613.         Top = 282
  614.         Width = 37
  615.         Height = 14
  616.         Caption = 'Service'
  617.       end
  618.       object SpeedB_CodeP: TSpeedButton
  619.         Tag = 7
  620.         Left = 370
  621.         Top = 189
  622.         Width = 17
  623.         Height = 15
  624.         Cursor = crHandPoint
  625.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  626.         Caption = '-'
  627.         Flat = True
  628.         Font.Charset = DEFAULT_CHARSET
  629.         Font.Color = clWindowText
  630.         Font.Height = -19
  631.         Font.Name = 'MS Sans Serif'
  632.         Font.Style = [fsBold]
  633.         Layout = blGlyphBottom
  634.         ParentFont = False
  635.         ParentShowHint = False
  636.         ShowHint = True
  637.         OnClick = SpeedB_CodePClick
  638.       end
  639.       object SpeedB_VilleP: TSpeedButton
  640.         Tag = 8
  641.         Left = 255
  642.         Top = 189
  643.         Width = 17
  644.         Height = 15
  645.         Cursor = crHandPoint
  646.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  647.         Caption = '-'
  648.         Flat = True
  649.         Font.Charset = DEFAULT_CHARSET
  650.         Font.Color = clWindowText
  651.         Font.Height = -19
  652.         Font.Name = 'MS Sans Serif'
  653.         Font.Style = [fsBold]
  654.         Layout = blGlyphBottom
  655.         ParentFont = False
  656.         ParentShowHint = False
  657.         ShowHint = True
  658.         OnClick = SpeedB_VillePClick
  659.       end
  660.       object SpeedB_SuppPaysP: TSpeedButton
  661.         Tag = 10
  662.         Left = 368
  663.         Top = 231
  664.         Width = 17
  665.         Height = 15
  666.         Cursor = crHandPoint
  667.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  668.         Caption = '-'
  669.         Flat = True
  670.         Font.Charset = DEFAULT_CHARSET
  671.         Font.Color = clWindowText
  672.         Font.Height = -19
  673.         Font.Name = 'MS Sans Serif'
  674.         Font.Style = [fsBold]
  675.         Layout = blGlyphBottom
  676.         ParentFont = False
  677.         ParentShowHint = False
  678.         ShowHint = True
  679.         OnClick = SpeedB_SuppPaysPClick
  680.       end
  681.       object SpeedButton1: TSpeedButton
  682.         Tag = 9
  683.         Left = 167
  684.         Top = 231
  685.         Width = 17
  686.         Height = 15
  687.         Cursor = crHandPoint
  688.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  689.         Caption = '-'
  690.         Flat = True
  691.         Font.Charset = DEFAULT_CHARSET
  692.         Font.Color = clWindowText
  693.         Font.Height = -19
  694.         Font.Name = 'MS Sans Serif'
  695.         Font.Style = [fsBold]
  696.         Layout = blGlyphBottom
  697.         ParentFont = False
  698.         ParentShowHint = False
  699.         ShowHint = True
  700.         OnClick = SpeedButton1Click
  701.       end
  702.       object SpeedButton2: TSpeedButton
  703.         Tag = 11
  704.         Left = 167
  705.         Top = 282
  706.         Width = 17
  707.         Height = 15
  708.         Cursor = crHandPoint
  709.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  710.         Caption = '-'
  711.         Flat = True
  712.         Font.Charset = DEFAULT_CHARSET
  713.         Font.Color = clWindowText
  714.         Font.Height = -19
  715.         Font.Name = 'MS Sans Serif'
  716.         Font.Style = [fsBold]
  717.         Layout = blGlyphBottom
  718.         ParentFont = False
  719.         ParentShowHint = False
  720.         ShowHint = True
  721.         OnClick = SpeedButton2Click
  722.       end
  723.       object SpeedButton3: TSpeedButton
  724.         Tag = 12
  725.         Left = 368
  726.         Top = 282
  727.         Width = 17
  728.         Height = 15
  729.         Cursor = crHandPoint
  730.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  731.         Caption = '-'
  732.         Flat = True
  733.         Font.Charset = DEFAULT_CHARSET
  734.         Font.Color = clWindowText
  735.         Font.Height = -19
  736.         Font.Name = 'MS Sans Serif'
  737.         Font.Style = [fsBold]
  738.         Layout = blGlyphBottom
  739.         ParentFont = False
  740.         ParentShowHint = False
  741.         ShowHint = True
  742.         OnClick = SpeedButton3Click
  743.       end
  744.       object Label8: TLabel
  745.         Left = 3
  746.         Top = 63
  747.         Width = 21
  748.         Height = 14
  749.         Caption = 'Nom'
  750.         Font.Charset = DEFAULT_CHARSET
  751.         Font.Color = clBlack
  752.         Font.Height = -11
  753.         Font.Name = 'Arial'
  754.         Font.Style = []
  755.         ParentFont = False
  756.       end
  757.       object Label10: TLabel
  758.         Left = 21
  759.         Top = 1
  760.         Width = 170
  761.         Height = 15
  762.         Caption = 'Informations professionnelles'
  763.         Font.Charset = DEFAULT_CHARSET
  764.         Font.Color = clWindowText
  765.         Font.Height = -12
  766.         Font.Name = 'Arial'
  767.         Font.Style = [fsBold]
  768.         ParentFont = False
  769.       end
  770.       object Image1: TImage
  771.         Left = 3
  772.         Top = 0
  773.         Width = 16
  774.         Height = 16
  775.         AutoSize = True
  776.         Picture.Data = {<image002.bmp>}
  777.         Transparent = True
  778.       end
  779.       object SC_CloneB: TSC_Label
  780.         Left = 195
  781.         Top = 2
  782.         Width = 193
  783.         Height = 14
  784.         Cursor = crHandPoint
  785.         Caption = '(Copier depuis un contact existant)'
  786.         Font.Charset = DEFAULT_CHARSET
  787.         Font.Color = clNavy
  788.         Font.Height = -11
  789.         Font.Name = 'Arial'
  790.         Font.Style = [fsBold]
  791.         ParentFont = False
  792.         OnClick = SC_CloneBClick
  793.         ACHover = True
  794.         ACUnderline = True
  795.         ACColorEnter = clBlue
  796.         ACColorLeave = clNavy
  797.       end
  798.       object Label11: TLabel
  799.         Left = 3
  800.         Top = 21
  801.         Width = 85
  802.         Height = 14
  803.         Caption = 'Nom de la soci'#233't'#233
  804.         Font.Charset = DEFAULT_CHARSET
  805.         Font.Color = clBlack
  806.         Font.Height = -11
  807.         Font.Name = 'Arial'
  808.         Font.Style = []
  809.         ParentFont = False
  810.       end
  811.       object SC_EditCdSoc: TSC_Label
  812.         Left = 26
  813.         Top = 189
  814.         Width = 225
  815.         Height = 14
  816.         Cursor = crHandPoint
  817.         Caption = '(Editer le code postal et le d'#233'partement, Ctrl+E)'
  818.         Font.Charset = DEFAULT_CHARSET
  819.         Font.Color = clNavy
  820.         Font.Height = -11
  821.         Font.Name = 'Arial'
  822.         Font.Style = []
  823.         ParentFont = False
  824.         OnClick = SC_EditCdSocClick
  825.         ACHover = True
  826.         ACUnderline = True
  827.         ACColorEnter = clBlue
  828.         ACColorLeave = clNavy
  829.       end
  830.       object SC_LabelNom: TSC_Label
  831.         Left = 29
  832.         Top = 63
  833.         Width = 202
  834.         Height = 14
  835.         Cursor = crHandPoint
  836.         Caption = '(Copier le nom de la page domicile, Ctrl+N)'
  837.         Font.Charset = DEFAULT_CHARSET
  838.         Font.Color = clNavy
  839.         Font.Height = -11
  840.         Font.Name = 'Arial'
  841.         Font.Style = []
  842.         ParentFont = False
  843.         OnClick = SC_LabelNomClick
  844.         ACHover = True
  845.         ACUnderline = True
  846.         ACColorEnter = clBlue
  847.         ACColorLeave = clNavy
  848.       end
  849.       object EditSoc: TEdit
  850.         Left = 3
  851.         Top = 36
  852.         Width = 383
  853.         Height = 22
  854.         Ctl3D = True
  855.         MaxLength = 50
  856.         ParentCtl3D = False
  857.         TabOrder = 0
  858.         OnKeyPress = EditNomKeyPress
  859.       end
  860.       object EditAdresse1Soc: TEdit
  861.         Left = 3
  862.         Top = 120
  863.         Width = 383
  864.         Height = 22
  865.         Ctl3D = True
  866.         MaxLength = 80
  867.         ParentCtl3D = False
  868.         TabOrder = 2
  869.         OnKeyPress = EditNomKeyPress
  870.       end
  871.       object EditAdresse2Soc: TEdit
  872.         Left = 3
  873.         Top = 162
  874.         Width = 383
  875.         Height = 22
  876.         Ctl3D = True
  877.         MaxLength = 80
  878.         ParentCtl3D = False
  879.         TabOrder = 3
  880.         OnKeyPress = EditNomKeyPress
  881.       end
  882.       object ComboCodeSoc: TComboBox
  883.         Left = 276
  884.         Top = 204
  885.         Width = 112
  886.         Height = 22
  887.         Cursor = crHandPoint
  888.         DropDownCount = 15
  889.         ItemHeight = 14
  890.         Sorted = True
  891.         TabOrder = 5
  892.         OnExit = TousComboExit
  893.       end
  894.       object ComboVilleSoc: TComboBox
  895.         Left = 3
  896.         Top = 204
  897.         Width = 271
  898.         Height = 22
  899.         Cursor = crHandPoint
  900.         DropDownCount = 15
  901.         ItemHeight = 14
  902.         Sorted = True
  903.         TabOrder = 4
  904.         OnExit = TousComboExit
  905.         OnKeyPress = ComboKeyPress
  906.       end
  907.       object ComboDepSoc: TComboBox
  908.         Left = 3
  909.         Top = 246
  910.         Width = 183
  911.         Height = 22
  912.         Cursor = crHandPoint
  913.         DropDownCount = 15
  914.         ItemHeight = 14
  915.         Sorted = True
  916.         TabOrder = 6
  917.         OnExit = TousComboExit
  918.         OnKeyPress = ComboKeyPress
  919.       end
  920.       object ComboPaysSoc: TComboBox
  921.         Left = 188
  922.         Top = 246
  923.         Width = 199
  924.         Height = 22
  925.         Cursor = crHandPoint
  926.         DropDownCount = 15
  927.         ItemHeight = 14
  928.         Sorted = True
  929.         TabOrder = 7
  930.         OnExit = TousComboExit
  931.         OnKeyPress = ComboKeyPress
  932.       end
  933.       object ComboService: TComboBox
  934.         Left = 3
  935.         Top = 297
  936.         Width = 183
  937.         Height = 22
  938.         Cursor = crHandPoint
  939.         DropDownCount = 15
  940.         ItemHeight = 14
  941.         Sorted = True
  942.         TabOrder = 8
  943.         OnExit = TousComboExit
  944.         OnKeyPress = ComboKeyPress
  945.       end
  946.       object ComboPoste: TComboBox
  947.         Left = 188
  948.         Top = 297
  949.         Width = 199
  950.         Height = 22
  951.         Cursor = crHandPoint
  952.         DropDownCount = 15
  953.         ItemHeight = 14
  954.         Sorted = True
  955.         TabOrder = 9
  956.         OnExit = TousComboExit
  957.         OnKeyPress = ComboKeyPress
  958.       end
  959.       object EditNomSoc: TEdit
  960.         Left = 3
  961.         Top = 78
  962.         Width = 383
  963.         Height = 22
  964.         Ctl3D = True
  965.         MaxLength = 80
  966.         ParentCtl3D = False
  967.         TabOrder = 1
  968.         OnKeyPress = EditNomKeyPress
  969.       end
  970.     end
  971.     object Tab3: TTabSheet
  972.       Caption = '  M'#233'mo  '
  973.       ImageIndex = 3
  974.       TabVisible = False
  975.       object Label18: TLabel
  976.         Left = 3
  977.         Top = 21
  978.         Width = 91
  979.         Height = 14
  980.         Caption = 'T'#233'l'#233'phone domicile'
  981.       end
  982.       object Label28: TLabel
  983.         Left = 131
  984.         Top = 21
  985.         Width = 59
  986.         Height = 14
  987.         Caption = 'Fax domicile'
  988.       end
  989.       object Label29: TLabel
  990.         Left = 259
  991.         Top = 21
  992.         Width = 80
  993.         Height = 14
  994.         Caption = 'Portable domicile'
  995.       end
  996.       object Label31: TLabel
  997.         Left = 3
  998.         Top = 63
  999.         Width = 87
  1000.         Height = 14
  1001.         Caption = 'T'#233'l'#233'phone bureau'
  1002.       end
  1003.       object Label32: TLabel
  1004.         Left = 131
  1005.         Top = 63
  1006.         Width = 55
  1007.         Height = 14
  1008.         Caption = 'Fax bureau'
  1009.       end
  1010.       object Label33: TLabel
  1011.         Left = 259
  1012.         Top = 63
  1013.         Width = 76
  1014.         Height = 14
  1015.         Caption = 'Portable bureau'
  1016.       end
  1017.       object Label34: TLabel
  1018.         Left = 3
  1019.         Top = 131
  1020.         Width = 66
  1021.         Height = 14
  1022.         Caption = 'Email Domicile'
  1023.       end
  1024.       object SpeedB_SuppMail: TSpeedButton
  1025.         Tag = 13
  1026.         Left = 368
  1027.         Top = 129
  1028.         Width = 17
  1029.         Height = 18
  1030.         Cursor = crHandPoint
  1031.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  1032.         Caption = '-'
  1033.         Flat = True
  1034.         Font.Charset = DEFAULT_CHARSET
  1035.         Font.Color = clWindowText
  1036.         Font.Height = -19
  1037.         Font.Name = 'MS Sans Serif'
  1038.         Font.Style = [fsBold]
  1039.         Layout = blGlyphBottom
  1040.         ParentFont = False
  1041.         ParentShowHint = False
  1042.         ShowHint = True
  1043.         OnClick = SpeedB_SuppMailClick
  1044.       end
  1045.       object SpeedButton9: TSpeedButton
  1046.         Tag = 14
  1047.         Left = 368
  1048.         Top = 174
  1049.         Width = 17
  1050.         Height = 15
  1051.         Cursor = crHandPoint
  1052.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  1053.         Caption = '-'
  1054.         Flat = True
  1055.         Font.Charset = DEFAULT_CHARSET
  1056.         Font.Color = clWindowText
  1057.         Font.Height = -19
  1058.         Font.Name = 'MS Sans Serif'
  1059.         Font.Style = [fsBold]
  1060.         Layout = blGlyphBottom
  1061.         ParentFont = False
  1062.         ParentShowHint = False
  1063.         ShowHint = True
  1064.         OnClick = SpeedButton9Click
  1065.       end
  1066.       object Label35: TLabel
  1067.         Left = 3
  1068.         Top = 173
  1069.         Width = 85
  1070.         Height = 14
  1071.         Caption = 'Site Web Domicile'
  1072.       end
  1073.       object Label36: TLabel
  1074.         Left = 3
  1075.         Top = 236
  1076.         Width = 61
  1077.         Height = 14
  1078.         Caption = 'Email bureau'
  1079.       end
  1080.       object SpeedB_SuppMailP: TSpeedButton
  1081.         Tag = 15
  1082.         Left = 368
  1083.         Top = 237
  1084.         Width = 17
  1085.         Height = 15
  1086.         Cursor = crHandPoint
  1087.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  1088.         Caption = '-'
  1089.         Flat = True
  1090.         Font.Charset = DEFAULT_CHARSET
  1091.         Font.Color = clWindowText
  1092.         Font.Height = -19
  1093.         Font.Name = 'MS Sans Serif'
  1094.         Font.Style = [fsBold]
  1095.         Layout = blGlyphBottom
  1096.         ParentFont = False
  1097.         ParentShowHint = False
  1098.         ShowHint = True
  1099.         OnClick = SpeedB_SuppMailPClick
  1100.       end
  1101.       object SpeedB_SuppWebP: TSpeedButton
  1102.         Tag = 16
  1103.         Left = 368
  1104.         Top = 282
  1105.         Width = 17
  1106.         Height = 15
  1107.         Cursor = crHandPoint
  1108.         Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste'
  1109.         Caption = '-'
  1110.         Flat = True
  1111.         Font.Charset = DEFAULT_CHARSET
  1112.         Font.Color = clWindowText
  1113.         Font.Height = -19
  1114.         Font.Name = 'MS Sans Serif'
  1115.         Font.Style = [fsBold]
  1116.         Layout = blGlyphBottom
  1117.         ParentFont = False
  1118.         ParentShowHint = False
  1119.         ShowHint = True
  1120.         OnClick = SpeedB_SuppWebPClick
  1121.       end
  1122.       object Label37: TLabel
  1123.         Left = 3
  1124.         Top = 281
  1125.         Width = 80
  1126.         Height = 14
  1127.         Caption = 'Site Web bureau'
  1128.       end
  1129.       object Image3: TImage
  1130.         Left = 3
  1131.         Top = 0
  1132.         Width = 16
  1133.         Height = 16
  1134.         AutoSize = True
  1135.         Picture.Data = {<image003.bmp>}
  1136.         Transparent = True
  1137.       end
  1138.       object Label16: TLabel
  1139.         Left = 21
  1140.         Top = 1
  1141.         Width = 127
  1142.         Height = 15
  1143.         Caption = 'T'#233'l'#233'phones et internet'
  1144.         Font.Charset = DEFAULT_CHARSET
  1145.         Font.Color = clWindowText
  1146.         Font.Height = -12
  1147.         Font.Name = 'Arial'
  1148.         Font.Style = [fsBold]
  1149.         ParentFont = False
  1150.       end
  1151.       object EditGsm: TEdit
  1152.         Left = 259
  1153.         Top = 36
  1154.         Width = 126
  1155.         Height = 22
  1156.         Ctl3D = True
  1157.         ParentCtl3D = False
  1158.         TabOrder = 2
  1159.       end
  1160.       object EditFax: TEdit
  1161.         Left = 131
  1162.         Top = 36
  1163.         Width = 126
  1164.         Height = 22
  1165.         Ctl3D = True
  1166.         ParentCtl3D = False
  1167.         TabOrder = 1
  1168.       end
  1169.       object EditTel: TEdit
  1170.         Left = 3
  1171.         Top = 36
  1172.         Width = 126
  1173.         Height = 22
  1174.         Ctl3D = True
  1175.         ParentCtl3D = False
  1176.         TabOrder = 0
  1177.       end
  1178.       object EditGsmSoc: TEdit
  1179.         Left = 259
  1180.         Top = 78
  1181.         Width = 126
  1182.         Height = 22
  1183.         Ctl3D = True
  1184.         ParentCtl3D = False
  1185.         TabOrder = 5
  1186.       end
  1187.       object EditFaxSoc: TEdit
  1188.         Left = 131
  1189.         Top = 78
  1190.         Width = 126
  1191.         Height = 22
  1192.         Ctl3D = True
  1193.         ParentCtl3D = False
  1194.         TabOrder = 4
  1195.       end
  1196.       object EditTelSoc: TEdit
  1197.         Left = 3
  1198.         Top = 78
  1199.         Width = 126
  1200.         Height = 22
  1201.         Ctl3D = True
  1202.         ParentCtl3D = False
  1203.         TabOrder = 3
  1204.       end
  1205.       object ComboMail: TComboBox
  1206.         Left = 3
  1207.         Top = 147
  1208.         Width = 384
  1209.         Height = 22
  1210.         Cursor = crHandPoint
  1211.         DropDownCount = 12
  1212.         ItemHeight = 14
  1213.         Sorted = True
  1214.         TabOrder = 6
  1215.         OnExit = TousComboExit
  1216.       end
  1217.       object ComboWeb: TComboBox
  1218.         Left = 3
  1219.         Top = 189
  1220.         Width = 384
  1221.         Height = 22
  1222.         Cursor = crHandPoint
  1223.         DropDownCount = 12
  1224.         ItemHeight = 14
  1225.         Sorted = True
  1226.         TabOrder = 7
  1227.         OnExit = TousComboExit
  1228.       end
  1229.       object ComboMailSoc: TComboBox
  1230.         Left = 3
  1231.         Top = 252
  1232.         Width = 384
  1233.         Height = 22
  1234.         Cursor = crHandPoint
  1235.         DropDownCount = 12
  1236.         ItemHeight = 14
  1237.         Sorted = True
  1238.         TabOrder = 8
  1239.         OnExit = TousComboExit
  1240.       end
  1241.       object ComboWebSoc: TComboBox
  1242.         Left = 3
  1243.         Top = 297
  1244.         Width = 384
  1245.         Height = 22
  1246.         Cursor = crHandPoint
  1247.         DropDownCount = 12
  1248.         ItemHeight = 14
  1249.         Sorted = True
  1250.         TabOrder = 9
  1251.         OnExit = TousComboExit
  1252.       end
  1253.     end
  1254.     object Tab4: TTabSheet
  1255.       Caption = 'Tab4'
  1256.       ImageIndex = 3
  1257.       TabVisible = False
  1258.       object Label6: TLabel
  1259.         Left = 3
  1260.         Top = 21
  1261.         Width = 62
  1262.         Height = 14
  1263.         Caption = 'Anniversaire'
  1264.       end
  1265.       object Label7: TLabel
  1266.         Left = 128
  1267.         Top = 21
  1268.         Width = 21
  1269.         Height = 14
  1270.         Caption = 'F'#234'te'
  1271.       end
  1272.       object SpeedBFete: TSpeedButton
  1273.         Left = 253
  1274.         Top = 36
  1275.         Width = 23
  1276.         Height = 22
  1277.         Cursor = crHandPoint
  1278.         Hint = 'Rechercher la f'#234'te'
  1279.         Flat = True
  1280.         Glyph.Data = {
  1281.           F6000000424DF600000000000000760000002800000010000000100000000100
  1282.           04000000000080000000120B0000120B00001000000010000000000000000000
  1283.           80000080000000808000800000008000800080800000C0C0C000808080000000
  1284.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00778888888888
  1285.           8888778FFFFFFFFFFFF8778FF8FF8FF8FFF8778FFFFFFFFFFFF8778FFFFFFFFF
  1286.           FFF8788888FF8FF8FFF88B83338FFFFFFFF88BB83338FFFFFFF878BB8888FFFF
  1287.           FFF8778BBB844444444477488800000000047740008888000004774448919884
  1288.           4444777789198187777777778888187777777777781187777777}
  1289.         Margin = 0
  1290.         ParentShowHint = False
  1291.         ShowHint = True
  1292.         OnClick = SpeedBFeteClick
  1293.       end
  1294.       object Image4: TImage
  1295.         Left = 3
  1296.         Top = 0
  1297.         Width = 16
  1298.         Height = 16
  1299.         AutoSize = True
  1300.         Picture.Data = {<image004.bmp>}
  1301.         Transparent = True
  1302.       end
  1303.       object Label17: TLabel
  1304.         Left = 21
  1305.         Top = 1
  1306.         Width = 189
  1307.         Height = 15
  1308.         Caption = 'Memo et '#233'v'#232'nements '#224' souhaiter'
  1309.         Font.Charset = DEFAULT_CHARSET
  1310.         Font.Color = clWindowText
  1311.         Font.Height = -12
  1312.         Font.Name = 'Arial'
  1313.         Font.Style = [fsBold]
  1314.         ParentFont = False
  1315.       end
  1316.       object Memo1: TMemo
  1317.         Left = 3
  1318.         Top = 69
  1319.         Width = 383
  1320.         Height = 251
  1321.         Ctl3D = True
  1322.         ParentCtl3D = False
  1323.         ParentShowHint = False
  1324.         ScrollBars = ssBoth
  1325.         ShowHint = False
  1326.         TabOrder = 2
  1327.         OnEnter = Memo1Enter
  1328.         OnExit = Memo1Exit
  1329.       end
  1330.       object EditAniv: TLsAlignEdit
  1331.         Left = 3
  1332.         Top = 36
  1333.         Width = 123
  1334.         Height = 22
  1335.         ColorNormal = clWindow
  1336.         ColorFocused = clWindow
  1337.         MaxLength = 10
  1338.         TabOrder = 0
  1339.         OnContextPopup = EditFeteContextPopup
  1340.         OnExit = EditAnivExit
  1341.         OnKeyPress = EditAnivKeyPress
  1342.       end
  1343.       object EditFete: TLsAlignEdit
  1344.         Left = 128
  1345.         Top = 36
  1346.         Width = 123
  1347.         Height = 22
  1348.         ColorNormal = clWindow
  1349.         ColorFocused = clWindow
  1350.         MaxLength = 10
  1351.         TabOrder = 1
  1352.         OnContextPopup = EditFeteContextPopup
  1353.         OnExit = EditFeteExit
  1354.         OnKeyPress = EditAnivKeyPress
  1355.       end
  1356.     end
  1357.     object Tab5: TTabSheet
  1358.       Caption = 'Tab5'
  1359.       ImageIndex = 4
  1360.       TabVisible = False
  1361.       object Label1: TLabel
  1362.         Left = 3
  1363.         Top = 21
  1364.         Width = 27
  1365.         Height = 14
  1366.         Caption = 'Photo'
  1367.       end
  1368.       object Image5: TImage
  1369.         Left = 3
  1370.         Top = 0
  1371.         Width = 16
  1372.         Height = 16
  1373.         AutoSize = True
  1374.         Picture.Data = {<image005.bmp>}
  1375.         Transparent = True
  1376.       end
  1377.       object Label38: TLabel
  1378.         Left = 21
  1379.         Top = 1
  1380.         Width = 182
  1381.         Height = 15
  1382.         Caption = 'Attribuer une photo '#224' ce contact'
  1383.         Font.Charset = DEFAULT_CHARSET
  1384.         Font.Color = clWindowText
  1385.         Font.Height = -12
  1386.         Font.Name = 'Arial'
  1387.         Font.Style = [fsBold]
  1388.         ParentFont = False
  1389.       end
  1390.       object ButtonOpenImg: TButton
  1391.         Left = 3
  1392.         Top = 300
  1393.         Width = 105
  1394.         Height = 22
  1395.         Hint = '|Rechercher une image et l'#39'attribuer au contact'
  1396.         Caption = '&Attribuer une image'
  1397.         TabOrder = 0
  1398.         OnClick = ButtonOpenImgClick
  1399.       end
  1400.       object ButtonDellImg: TButton
  1401.         Left = 118
  1402.         Top = 300
  1403.         Width = 105
  1404.         Height = 22
  1405.         Hint = '|Supprimer cette image du contact'
  1406.         Caption = '&Supprimer l'#39'image'
  1407.         TabOrder = 1
  1408.         OnClick = ButtonDellImgClick
  1409.       end
  1410.       object SC_PanelImg: TSC_Panel
  1411.         Left = 3
  1412.         Top = 36
  1413.         Width = 383
  1414.         Height = 259
  1415.         BorderWidth = 1
  1416.         Color = clWhite
  1417.         TabOrder = 2
  1418.         OnDblClick = ButtonOpenImgClick
  1419.         object Image: TImage
  1420.           Left = 92
  1421.           Top = 26
  1422.           Width = 201
  1423.           Height = 201
  1424.           Center = True
  1425.           OnDblClick = ButtonOpenImgClick
  1426.         end
  1427.       end
  1428.     end
  1429.   end
  1430.   object ListEdit: TListBox
  1431.     Left = 9
  1432.     Top = 9
  1433.     Width = 121
  1434.     Height = 318
  1435.     Cursor = crHandPoint
  1436.     Style = lbOwnerDrawFixed
  1437.     Ctl3D = True
  1438.     Font.Charset = ANSI_CHARSET
  1439.     Font.Color = clWindowText
  1440.     Font.Height = -11
  1441.     Font.Name = 'Arial'
  1442.     Font.Style = []
  1443.     ItemHeight = 18
  1444.     Items.Strings = (
  1445.       'Domicile'
  1446.       'Bureau'
  1447.       'T'#233'l'#233'phones et Internet'
  1448.       'M'#233'mo et '#233'v'#232'nements'
  1449.       'Photo')
  1450.     ParentCtl3D = False
  1451.     ParentFont = False
  1452.     TabOrder = 0
  1453.     OnClick = ListEditClick
  1454.   end
  1455.   object ButtonHelp: TButton
  1456.     Left = 232
  1457.     Top = 343
  1458.     Width = 74
  1459.     Height = 22
  1460.     Caption = 'Ai&de'
  1461.     TabOrder = 3
  1462.     OnClick = ButtonHelpClick
  1463.   end
  1464. end
  1465.